#! /usr/bin/racket -f

(define (reply S)
   (cond
     [(symbol=? S 'Hello) 'Hi]
     [(symbol=? S 'GoodBye) 'Bye]
     [else 'Thanks]
     )
  )

(display (reply 'Hi))
(display "\n")
(display (reply 'Hello))
(display "\n")
(display (reply 'GoodBye))
(display "\n")

